home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs06.d81 / moresmrt.arc / SWREAD.BAS (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  86 lines
  1. 1 REM - THIS BASIC PROGRAM LOADS AND
  2. 2 REM RUNS AN M/L LOADER WHICH READS
  3. 3 REM AN INSTALLED SMARTWATCH E
  4. 4 REM SERIES CHIP.  IT ALSO PRINTS
  5. 5 REM THE DATE AND TIME TO THE SCREEN.
  6. 6 REM * NOTE - ALL DATE AND TIME INFO
  7. 7 REM   IS IN BINARY CODED DECIMAL
  8. 8 REM   (BCD) FORMAT.
  9. 10 GOSUB1000:SYS ZZ
  10. 20 ONPEEK(820)GOSUB1300,1310,1320,1330,1340,1350,1360
  11. 30 M=PEEK(822):M1=(M AND 240)/16:M2=(M AND 15)
  12. 35 PRINTRIGHT$(STR$(M1),1);RIGHT$(STR$(M2),1);"/";
  13. 40 D=PEEK(821):D1=(D AND 240)/16:D2=(D AND 15)
  14. 45 PRINTRIGHT$(STR$(D1),1);RIGHT$(STR$(D2),1);"/";
  15. 50 Y=PEEK(823):Y1=(Y AND 240)/16:Y2=(Y AND 15)
  16. 55 PRINTRIGHT$(STR$(Y1),1);RIGHT$(STR$(Y2),1)
  17. 60 H=PEEK(56331):H1=(H AND 16)/16:H2=H AND 15
  18. 65 PRINTRIGHT$(STR$(H1),1);RIGHT$(STR$(H2),1);":";
  19. 70 MI=PEEK(56330):M3=(MI AND 240)/16:M4=MI AND 15
  20. 75 PRINTRIGHT$(STR$(M3),1);RIGHT$(STR$(M4),1);":";
  21. 80 S=PEEK(56329):S1=(S AND 240)/16:S2=S AND 15
  22. 85 PRINTRIGHT$(STR$(S1),1);RIGHT$(STR$(S2),1);
  23. 86 AP=H AND 128:IFAP=128THENPRINT" PM":GOTO90
  24. 87 PRINT" AM"
  25. 90 TE=PEEK(56328):END
  26. 1000 ZZ=49152
  27. 1005 FORI=0TO249:READA
  28. 1010 POKEZZ+I,A:NEXT
  29. 1015 IFZZ=49152THENRETURN
  30. 1020 KH=INT((ZZ+175)/256):KL=(ZZ+175)-(KH*256)
  31. 1025 POKEZZ+25,KL:POKEZZ+26,KH
  32. 1030 KH=INT((ZZ+135)/256):KL=(ZZ+135)-(KH*256)
  33. 1035 POKEZZ+28,KL:POKEZZ+29,KH
  34. 1040 POKEZZ+31,KL:POKEZZ+32,KH
  35. 1045 POKEZZ+37,KL:POKEZZ+38,KH
  36. 1050 POKEZZ+43,KL:POKEZZ+44,KH
  37. 1055 POKEZZ+91,KL:POKEZZ+92,KH
  38. 1060 POKEZZ+97,KL:POKEZZ+98,KH
  39. 1065 POKEZZ+103,KL:POKEZZ+104,KH
  40. 1070 POKEZZ+109,KL:POKEZZ+110,KH
  41. 1075 KH=INT((ZZ+221)/256):KL=(ZZ+221)-(KH*256)
  42. 1080 POKEZZ+198,KL:POKEZZ+199,KH
  43. 1085 POKEZZ+203,KL:POKEZZ+204,KH
  44. 1090 POKEZZ+208,KL:POKEZZ+209,KH
  45. 1095 POKEZZ+213,KL:POKEZZ+214,KH
  46. 1100 DATA 165,1,72,169,53,133,1,120
  47. 1105 DATA 169,15,141,2,220,141,0,220
  48. 1110 DATA 173,15,220,41,127,141,15,220
  49. 1115 DATA 32,175,192,32,135,192,32,135
  50. 1120 DATA 192,141,57,3,32,135,192,141
  51. 1125 DATA 56,3,32,135,192,170,41,31
  52. 1130 DATA 201,18,208,4,138,73,32,170
  53. 1135 DATA 138,41,31,141,55,3,138,41
  54. 1140 DATA 32,10,10,13,55,3,141,11
  55. 1145 DATA 220,173,56,3,141,10,220,173
  56. 1150 DATA 57,3,141,9,220,169,0,141
  57. 1155 DATA 8,220,32,135,192,141,52,3
  58. 1160 DATA 32,135,192,141,53,3,32,135
  59. 1165 DATA 192,141,54,3,32,135,192,141
  60. 1170 DATA 55,3,169,255,141,0,220,141
  61. 1175 DATA 1,220,141,2,220,169,0,141
  62. 1180 DATA 3,220,104,133,1,88,96,169
  63. 1185 DATA 14,141,2,220,169,0,141,253
  64. 1190 DATA 192,162,8,169,14,141,0,220
  65. 1195 DATA 169,2,141,0,220,173,0,220
  66. 1200 DATA 106,173,58,3,106,141,58,3
  67. 1205 DATA 202,208,232,173,58,3,96,169
  68. 1210 DATA 14,141,0,220,169,2,141,0
  69. 1215 DATA 220,169,14,141,0,220,169,2
  70. 1220 DATA 141,58,3,169,197,32,221,192
  71. 1225 DATA 169,58,32,221,192,169,163,32
  72. 1230 DATA 221,192,169,92,32,221,192,206
  73. 1235 DATA 58,3,208,231,96,170,160,8
  74. 1240 DATA 169,12,141,0,220,138,41,1
  75. 1245 DATA 141,0,220,9,12,141,0,220
  76. 1250 DATA 136,240,6,138,74,170,184,80
  77. 1255 DATA 237,96
  78. 1260 RETURN
  79. 1300 PRINT"SUNDAY,";:RETURN
  80. 1310 PRINT"MONDAY,";:RETURN
  81. 1320 PRINT"TUESDAY,";:RETURN
  82. 1330 PRINT"WEDNESDAY,";:RETURN
  83. 1340 PRINT"THURSDAY,";:RETURN
  84. 1350 PRINT"FRIDAY,";:RETURN
  85. 1360 PRINT"SATURDAY,";:RETURN
  86.